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yon 500 Breer 158d forsee) LAM ERCIAMSOENTER maR;1 2% (3; 
p44 
: FACILITY: RMS32 
: ABSTRACT: 
¢ : This is the highest level routine to perform the SENTER function 
4 3 ENVIRONMENT: 
0 7 3 VAX/VMS 
6 5 + AUTHOR: 
0 8 ; Tim Halvorsen Aug=1979 
099 40 : MODIFIED BY: 
9000 4g : v03-011 DGB0058 Donald G. Blair 25-Jun-1984 
00 43; yee FWA so that rather than include the 
0000 89 44 fefault direc tory spec for files on tape, it gives such 
4 o2 3 files a "CJ'' directory spec. 
0000 23 : V03-010 RASU295 Ron Schaefer 17-Apr-1984 
4 48 ; Make RMSRECOVER_FWA setup the device as if it were 
000 49 ; concealed using the NAMS$T_DVI device id. 
444 29 3 This makes sure that no translation of the name is needed. 
0000 32 : v03-009 iJ 0026 J E Johnson 11-Apr-1984 
4 :7 : ie off invalid AE. operations. 
0000 «55: : V03-008 RASO288 Ron Schaefer 5-Apr-1984 
0000 56 ; Fats RMSRECOVER_FWA for explicit rooted directories. 
0000 S73 bose that the Filespec pattern passed to the ACP 
44 28 : is in the caller's address space. 
0000 460: V03-007 0GB0030 ald G. Blair 19-Mar-1984 
44H 3 3 Implement the yaBSy. * PROPAGATE bit. 
0000 $$ : V03-006 0GB0021 Donald G. Blair 06-Mar-1984 
0000 64; Use full-length fib in order to support access mode 
4 02 ; protected files. 
$600 67 ; v03-005 RASO262 Ron Schaefer 6-Mar-1984 
00 68 ; Change pagtane specs to include a null ‘'C)"’ directors 
bp 3 3 add symbol definitions. 
9900 71; V03-004 RASO219 Ron Schaefer 8-Dec-1983 
44 f : Fix FWA constant and probe the NAM block correctly. 
9000 74 : V03-003 KBT0584 Keith B. Thompson 12-Aug-1983 
BS o 3 Clean up fwa constants 
000 77: v03-002 KBT0564 Keith 8. Thompson 25-Jul-1983 
00 f s Make rm$recover_ fon work with new root ea format 
09 0: v03-001 KBT0179 Keith B. Thompson 23-A te 
09 3 Reorganize psects and rename entry point back® 7 single ‘$' 


SEp=198¢ forde:91 ERMSVSRCIRMSOENTER+RAR;1 "29 
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RMSOENTER ENTER FILE IN DIRECTORY 16-SEP-1984 01:16:17 \VAX/VMS Macro v04-00 Page 4 
vo2-500 AMSSENTERS Enter File in Directory 7$Fb=1 382 i eraty RMS .SRCJRMSOENTER.MAR; 1 : (4) 
: 118 -SBTTL RMSSENTER, Enter File in Directory 
t yi 
4 113 ; RMSSENTER = Enter file name in directory 
4 11? : INPUTS: 
4 118 : AP = address of user argument List 
4 120; Bupended name string 
4 121; DVI = DEVICE NAME 
4 1 § ; DID = DIRECTORY ID 
One ! i 3 FID = FILE ID to be entered into the directory 
004 5 ; OUTPUTS: 
004 1 5 : RESULT NAME STRING 
a 
+94 ! , SENTRY RMSSENTER 
FFF9" 30 004 1 ¢ BSBW RMSFSETI 3 scoate eae ne 
s 2 5 2 
57 28 A8 8 0007 134 MOVL FABSL_NAM(R8) ,R7 : get NAM address_ 
FFF2* 30 0008 135 BSBW RMSCHRNAM 3 check NAM validity 
61 50 €9 Baye : § BLBC RO,90$ : branch if error 
11 £€O Q011 138 BBS #NAMSV_NODE,- :; If this is a network 
34 A7 9013 139 NAMSL_FNB(R?),- : device proceed directly 
5F 001 140 NTENTER 3; to network specific code. 
0018 142 
a018 148 F Recover FWA context from EXPANDED NAME STRING 
016 145 ° 
63 10 borg 146 BSBB RMSRECOVER_FWA : recover FWA context 
5750 €9 0018 147 BLBC RO,90$ : branch if error 
0018 149 
018 150: Call ACP to enter the file name 
O18 18e 
5C E2AF 9 018 1 : MOVAB RMSENTXAB_ARGS,AP 3; ap = argument for xab-scan 
A: ee 1F } : pseu RASEA _SCAN ; handle pro xab 
10 AA 040 8F 5c : 138 MOVZWL #F {BSC_LENGTH FWASQ_F 1B(R10) ; setup FIB descriptor 
1f4 CA O9E 8 13 MOVAB FWA$T_FIBBUF (R10) ,- 
14 AA F j 8 FWASQ_F1B+4(R10) 
0220 CA +3 1 15 CLRW FIBSW_VERLIMIT+FWAST_FIBBUF(R10); assure version Limit = 0 
C 5 160 MOVZWL #FWASS _NAMEBUF +- 
6 161 FWASS_TYPEBUF +FWASS_VERBUF ,- 
0170 CA O012E or 6 196 FWASQ_NAME (R10) 3 setup requit descriptor 
E C C 16 CLRQ -(S$P) : P5S/P6 = 
0170 CA «OF 164 PUSHAB FWASQ_NAME (R10) ; P4zaddr. of rslt descriptor 
gf Ao «OF 4 165 PUSHAB IFBSL_RNS LEBtR®) : paasorguore for length | 
9} A 4 4 166 PUSHAB FWA$SQ-RNSTR10) : P2=file name string descript. 
0 3 C 4 16 MOVZWL #10$_CREATE,RO ; ACP function code 


~$EP=1984 90:26:54 ERAS 
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nter File in Directory 


BSBW RMSFCPFNC 


RMSOENTER 
voL-b00 


ENTER a 
RMSSENT 


Sete te Ge 


BSBW RNSAAPERR 
BRB 90$ 


16 

: Return the RESULT NAME STRING to the user 
FFAI' 30 40$:  BSBW  RMSCOPY_RESULT ; 
1050 +9 BLBC ~=—_- RO, 90 


02 O€& 50 F0 INSV RO, #NAMSV_LOWVER,#2,- : 


COMIN FS OOO OUPIPMPINPMINIFAVN BOOOOOOP FIN wre 
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FAN OODNAUNES WN =O OO NAME WI OCONOAUM EW O 00 


POPOROPURY 2 


OoOoOOooooooooooooooooo 


34 A7 NAMSL_ FNBTR7) 
50 01 9 MOVL : 
FFBB" 31 90$:  BRW RMSCLSCU : 
: Network specific SENTER code 
NTENTER: 
FF88' 30 BSBW NTSENTER 3 
FF85* 31 BRW RMSCLSCU ; 


ov Macro V04-00 
SRCIRMSOENTER.MAR; 1 


call ACP me wait for reply 
branch if ok 

set default error 

map STV status 


Page 


buffer 


copy RESULT NAME STRING 
; branch if error 


Return HIGHVER/LOWVER bits to caller in FNB 


extract the 2 bits 


ASSUME FIBSV_HIGHVER £0 FIBSV_LOWVER+1 

02 O& EF EXTZV #FIBSV_LOWVER,#2 ; 

50 0208 CA FWAST “FIBBUF +f 18$W_ NMCTL(R10) ,RO 
ASSUME NAMSV_HIGHVER €Q NAMSV_LOWVER+1 


store into FNB 


success 
evaporate IFAB and cleanup 


Do the SENTER operation 
and clean up. 
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yon B00 RMSRECOVER_FWA, Recover FWA from Expande g7 SEE 19 4 eae RMS .SRCIRMSOENTER.MAR; 1 . 
p re § -SBTTL RMSRECOVER_FWA, Recover FWA from Expanded String 
a 
78 p ; RMSRECOVER_FWA = This routine uses the EXPANDED NAME STRING in the NAM 
78 i 3 block to restore the state of the FWA so that ACP 
ie \¢ 3 operations can be performed using the FWA. 
78 14: Note that it is assumed that this is not a network 
078 19 3 operation, since the context is always kept in RMS 
378 1 3 space for search sequences. 
Be i : Inputs: 
078 0; NAMSL_ESA - Address of EXPANDED STRING BUFFER 
078 13 NAM$B_ESL = Length of EXPANDED STRING 
078 § : NAMS$W_FID/DID = FID and DID of previous file 
078 ; NAMSL_RSA - Address of previous RESULT STRING 
078 4; NAMSB_RSL - Length of previous RESULT STRING 
Baee 33 NAMST_DVI1 - Device name string 
0078 ; : Outputs: 
bo58 4 : R10 = FWA address 
0078 1: FWASQ_NODE - Is not altered. 
0078 ¢ : FWASQ_DEVICE - Descriptor of device portion 
0078 33; FWASQ_CDIR1 - Descriptor of entire root directory specification 
0078 $e ; excluding the delimiters 
0078 > § FWASB_ROOTERM = Root directory terminator 
0078 $$ 3 FWASQ_DIR1 - Descriptor of entire directory specification 
0078 3 excluding the delimiters 
078 8; FWASB_DIRTERM = Directory terminator 
078 9; FWASQ_ - Descriptor of FILE NAME, TYPE and VERSION 
078 40 ; FWASB_DIRLEN - Number of ei rectery names present 
078 41 ; (needed for RMSCOPY_RESULT 
0078 4 : FWASQ_NAME+4 - Address of previous RESULT STRING 
bore re 3 IFBSL_RNS_LEN = Length of previous RESULT STRING 
0078 245; The FID and DID fields are copied into the FIB buffer 
078 rf : and a channel is assigned to the device. 
078 47 ; 
a oe 
Ore 0 RMSRECOVER_FWA:: 
O78 882 
a i : Allocate FWA and temporary FSCB buffer 
78 7 
ore . 30 78 2$ BSBW RMSFWASET :; allocate FWA 
$e 444 BLBC R : branch if error 
52 0104 BF : MOV2WL  #F SCBSC BLN, R2 ; get size of FSCB 
FF77° 8 BSBW pases [SPC 3 al locate t 
17 20 E 60 LBC RO,10$ ; branch if success 
B OD C 61 PUSHL R ; save impure area 
14 40 E 62 BSBB RECOVER_FWA ; do the work 
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v04- RMSRECOVER_FWA, Recover FWA from Expande 5-SEP-1984 16:24:51 RMS.SRCIRMSOENTER.MAR; 1 (5) 
54 B 4 39 63 MOVL R11,R4 3; get addr of buffer 
BED 9 ee POPL R11 3; restore impure area 
D 38 PUSHL RO 3 save status 
52 0104 8F 3 9 96 MOVZWL #FSCBSC BLN.Re ; get size 
ah 9D 6 BSBW RMSRETSPC 3 return the space 
0 bEBY a rt: POPL RO 3; restore status 
0 A 8 10$: RSB 
A 504 
one ie 3 Get descriptor of expanded name string from NAM block and probe it 
AG 7” 
OAs 75 RECOVER_FWA: FIE 
58 51 00 A4 4 MOVL R1,R11 i get address of FSCB FIE 
56 0B A? 9A QOA7 7 MOVZBL NAM$B_ESL(R7) ,R6 ; get Length of expanded string FIE 
64 13 3 78 BEQL ERR 3 error if none FIE 
57 OC A? DO OOAD 79 MOVL NAMSL_ESA(R7) ,R7 3 get addr. of expanded string FIE 
pel HY IFNORD R6,(R7) ,ERRESA 3 error if cannot read buffer FIE 
09000000" EF 16 00B7 1 JSB RMSSCAN. STRING $ parse the string FIL 
57 8 AB Be OBD 6 MOVL FABSL_NAM(R8) ,R7 3: restore name block FTL 
FF3C" 30 00C1 | BSBW RMSCHRNAM : still good? Fw 
43 50 34 0C4 4 BLBC RO,25$ > nope Fw 
04 AB OB A? 1 00C7 $2 CMPB NAMSB_ESL(R7),FSCBSQ_FILESPEC(R11); should be the same Fi 
43. 12 pace § BNEQ ERRESC IFE 
ae? i 
OOCE 89 : Copy device name to FWA. If pesetete. get it from the expanded 101 
OOCE 90 ; name string rather than the DVI to preserve the sogrees device name. NAR 
OOCE 91; Setup as concealed device however in order to use the DVI for the NAR 
OOCE 3 : actual device assignment. NTd 
BocE 59a NTE 
50 OO0EO CA 7E OO0C 95 MOVAQ FWAS$Q_DEVICE(R10),RO 3 get addr to setup PIC 
1D 6B 01 #42©€1 OOD 96 BBC #FSCBSV_DEVICE, (R11) ,10$ 3; if not present, use DVI RM 
60 14 AB 01 A3 00D 97 SUBW3 = #1, F SCBSQ DEVICE CRIS , (ROD : strip colon and stuff after it 
ope 4 B1 Boe 4 CMPW Are ig GS 3 name too Long? R 
OF 1A pee 00 BGTR — : if too Long use DVI 
60 28 O0€5 301 MOVCS (RO),- > copy to buffer 
04 B80 18 BB itt 8 ar SCBSaQ DEVICE+4(R11) ,a4(RO) 
0 OOE8 CA 7E O0E 0 MOVAQ FWA$Q CONCEAL _DEV(R105 RO : get addr to setu 
oere Be SSB #FWASO_CONCEAC_DEV, (R10) 3; mark concealed dev present 
60 14 A7 9A ae 8g 10$: MOVZBL NAMST_DVI(R7), (RO) 3; get length of name 
11. «13 4 th BEQL ERRDVI : error if null 
OFA st ASSUME NAMS$S_DVI LE FWAS$S_DEVICEBUF 
60 28 OOFA 11 MOVC3 (RO),- 3; copy to buffer 
0480 15 A7 OF 1 AM$T_DV1+1(R7) ,@4(RO) 
1 135 20$: SSB #FWASY_DEVICE, (R10) 3; mark device name present 
FEF9*® 30 0104 14 BSBW RMSASSIGN 3 assign channel to device 
13 50 Be 107 15 BLBS RO, STUFF _FID 3 branch if ok 
! A 1 258: RSB 3 exit with error 
1 18 ERRDVI: RMSERR DVI 
05 (011 1 RSB 
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yoL-000 RMSRECOVER_FWA, Recover FWA from Expande aes 7 erate LRMS SRCIAMS ENTER.MAR; 1 n &) 
111 9 
05 11g ERRESL: posene ESL 
11 
117 4 ERRESA: RMSERR ESA 
05 118 5 RSB 
11D s ; 
118 8 ; Move FID, DID and WCC to FIB buffer 
11D 0° 
11D 1 ASSUME FIBS$W_DID EQ F IBSW_FID+6 
11D § ASSUME FIBSL_WCC EQ F IBSW_DID+6 
11D ASSUME NAM$W_DID EQ NAMS$SW_FID+6 
B48 ¢ ASSUME NAMSL_WCC EQ NAM$W_D1ID+6 
11D 3 
a1 3 STUFF _FID: 
A MOV N W_FID FWA F UF + W_FID(R10) 
O1F8 C 24 A7 7D O11 8 ova AM$SW_FID(R7) $T_F IBBUF +F IB$W_FID(R10 
0200 CA 2C A? 7D o123 33 MOVQ = NAMSWIFID+8(R7) ,FWAST_F IBBUF +F IBSW_F1D+8(R10) 
0129 41 ; 
4 2 5 ; check for a rooted directory 
0129 344° 
5¢C 69 03 €1 0129 45 BBC #DEVSV_ DIR, IFBSL_PRIM_DEV(R9) ,5$ ; if non-directory device 
2A 6B 02 A big? +8 BBC #FSCB$V_ROOT,(R1T),1$ 3 was there a root? 
50 1C AB 7D 0131 34 Ov FSCB$Q_ROOT(R11) RO : get descriptor 
0B AA 81 O¢ 81 0135 48 ADDB #2,(R1)+,FWASB_ROOTERM(R10) 3; save root directory terminator 
50 0 C2 4 A 49 SUBL 3; remove directory terminators 
1A 69 1C €1 013D 50 BC #DdEVSV RND, IFBSL_PRIM_DEV(R9),1$; skip rooted directory if tape 
OOFF 8F 50 81 0141 51 CMPW RO, #FWASC_MAXDIRCEN 3 root too big? 
CF 1A 0146 26 BGTRU CE 3; error if too big 
OOFO CA 50 3¢ abe 5 MOVZWL RO, FWASQ_CDIR1(R10) ; save Length of {rectory 
OOF4 DA 61 50 28 130 54 MOVCS RO,(R1),aFWASQ_CDIR1+4(R10) 3 and save root dir. in FWA 
015 55 SSB #FWASV_ROOT DIR, (R10) :; signal it as being there 
0136 2$ SSB #FWASV_EXP_ROOT, (R10) 3 and that it was explicit 
158 58 ; 
bi28 23 ; Setup descriptor of the full directory spec 
158 361 ° 
A 6B 03 1 $136 6 1$ BBC #FSCBSV_DIRECTORY, (R11) ,5$ : branch if not found 
0 24 D O159F 36 MOVa FSCBS$Q_BIRECTORY(R11),RO ; get descriptor 
OA AA 81 QO 81 0163 64 ADOB #2, (R13+,FWASB_DIRTERM(R10) 3; save directory terminator 
0 2 A2 0168 65 SUBW ° 3 remove eirectory terminator 
OOFF 8F 81 1 66 CMP RO, #FWASC_MAXDIRLEN 3; directory too big? 
29 «1A «COD 6 BGTRU 9$ : error if too big 
13 69 IC 1 17 o8 BBC #DEVSV_RND, IFBSL_PRIM_DEV(R9) ,5$; if tape, br to skip dir spec 
0130 CA 30 ¢ 17 6 MOVZWL RO. FuASG DfR1(R10) : save Length of directory 
0134 DA 61 178 At MOVCS RO,(R1),gFWASQ _DIR1+4(R10) 3 and save dir. in FWA 
181 7 SSB #FUASV_DIR, (R10) 3 mark directory present 
2—E AA 01 90 : 3 ys MOVB #1, FWASB_DIRLEN(R10) : indicate 1 dir. name present 
50 2C AB 7D 0189 74 5$: mova f3COSG_WARE CRIT) RO 3; set descriptor of file name 
OF 12 018D 75 BNEQ 10$ : : 
50 3C AB 7D O18F 76 mMOVQ FSCB$Q_VERSION(R11) ,RO 3; try file version 
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A, Recover FWA from Expande 5=-SEP-1984 16:24 RMS.SRCIRMSOENTER.MAR; 1 (5) 
BNEQ 20$ 
MOVa ata hinialtacaae ; how about type? 
BNEQ $ 
BRW ERRESA ; must be a name (or something) 
sooMe FSCBS$Q_TYPE(R11) RO 3; add the type field 
ADDW2 FSCBSQ“VERSION(R11),RO ; and the version 


Use the EXPANDED NAME STRING as the pattern that the ACP should 
use for matching. Note that this read-only buffer is actually 
in the user's (caller's) address space and thus cannot be 
written back by RMS or the ACP. 


MOVW RO,FWASQ_RNS(R10) 3; copy size (no flags) 
MOVL R1,FWASQ_RNS+4(R10) 3 copy address 


Use the RESULT NAME STRING from the previous operation 
as input to the ACP so that it can recover its position 
within the directory. 


IFBSL_RNS_LEN(RY) preset length of prev. name 


CLRL : 
MOVZBL NAMSB_RSLTR7) ,R6 3 get Lenggh of RESULT STRING 
BEQL 3; branch if none 

OVL NAMSL_RSA(R7) ,R7 ; get address of RESULT STRING 
IFNORD R6,(R7),ERRRS : error if cannot read buffer 
JSB M$SCAN. STRING : parse the string 
MOVL FABSL_NAM(R8) ,R7 3 restore name block 
BSBW RMSCHRNAM 3 still good? 
BLBC RO,80$ ; nope 
as pAiee RSL(R7) ,FSCB$Q_FILESPEC(R11); should be the same 
MOVa FSCBSQ_NAME (R11) ,RO ; get descriptor of file name 
BNEQ 40 3; add rest 
mMOVQ FSCB$Q_VERSION(R11) ,RO ; get descriptor of file name 
BNEQ 50$ 3; add rest 
mMOva FSCB$Q_TYPE(R11),RO 3; get descriptor of file name 
BRB 60$ 3 Copy name 
rte, FSCB$Q_TYPE(R11) ,RO 3; add the type field 
ADDW2 FSCBSQ~VERSION(R11) RO + and the version 
MOVZWL RO, IFBSL_RNS_LEN(R9S 3; length of prev. RESULT NAME 
MOVCS RO,(R1),@FWASQ_NAME+4(R10) 3 copy previous RESULT NAME 
nove #1,R0 3 success 


RMSERR RST 
RSB 


RMSOENTER ENTER FILE IN DIRECTORY Tg-SP- 1984 9) :17 YAX/VaS Macr 
Symbol table “SEP=1984 16:24:51 (CRMS.SRCIRMSOENTER.MAR; 1 
$$.PSECT_EP = 00000000 NAMSL_ESA = 9¢ 
SSRMSTEST s 1A NAMSL_FNB = 
SSRMS_PBUGCHK = 19 NAMSL_RSA = of 
SSRMS_ TBUGCHK = NAMSL_WCC Py 8 
SSRMS_UMODE = 4 NAM$S_DVI = 00 1 
V$V=DIR s 3 NAMST_DVI = ° 14 
DEVSV_RND = 1¢ NAMSV_HIGHVER z 0000F 
RRDV 0 198 R 01 NAMSV_LOWVER = 0000000E 
ERRESA 00000117 R 01 NAM$V_NODE = 8 439 
ERRESL 484 111. R 01 NAM$W_DID = 4 sh 
RRRSA 000 R 01 NAMSW_FID = 00000024 
FABSL_NAM = 8808 NTSENTER aeeeeeee =X 01 
FIBSC_LENGTH = NTENTER 00000075 R 1 
FIBSL_WCC = BOOS OSE RECOVER_FWA QO0000A4 R 01 
Ff IBSV_HIGHVER = 0000000F RMSASSIGN teeeeeee Xx 01 
F IBSV_LOWVER = 0000000E RMSCHKNAM aeenenee XX (01 
FIBSW_DID = 0000000A RMSCLSCU aeaaeeee = §=6X 860] 
F 1BSW_F ID = 00000004 RMSCOPY_RESULT teeeeeee = X 01 
F IBSW_NMCTL = 00000014 RMSENTXAB_ARGS 00000000 RG 91 
F IBSW-VERLIMIT = 0000002C RMSF CPFNC eeeeeeee xX 1 
FSCBSC_BLN = 00000104 RMSFSETI eeeeeere = X 01 
FSCB$Q_ DEVICE = 00000014 RMSFWASE eeeneeeer = X (01 
FSCBSQ_DIRECTORY = 00000024 RMSGETSPC1 aeeeeeee X01 
FSCB$Q_F ILESPEC = 00000004 SMAPERR aeeeeeee = X 01 
F SCB$Q_NAME = 0000002C RMSRECOVER_FWA 00000078 RG 01 
FSCB$Q_ROOT = 0000001C SRETSPC aeeeeeee = X (01 
FSCBS$Q_TYPE = 00000034 RMSSCAN_STRING aeeeenee XX (01 
FSCB$Q_VERSION = 0000003C RMS$XAB_SCAN aeaneeee =X 01 
FSCBSV_DEVICE = 00000001 RMSSENTER = 00000002 RG 01 
FSCBSV_DIRECTORY = 00000003 RMS$_DVI = 000184F4 
FSCBS$V-ROOT = 00000002 RMS$_ENT = QOO1CO1A 
FWASB_DBIRL = 0000002E RMS$_ESA = 000184FC 
FWASB_DIRTERM = 0000000A RMS$_ESL = 00018714 
FWASB_ROOTER = 00000008 RMS$_RST = 0001869C 
FWASC_MAXDIRLEN = 000000F F STUFF_FID 0000011D R 01 
FWASQ_CDIR = 000000F0 XABSC_PRO = 00000013 
FWASQ_CONCEAL_DEV = 000000E8 XABSC_PROLEN_V3 = 00000010 
FWASQ_DEVICE = BOOT 86 XBC$C_ENTPRO keareenre = X 01 
FWASQ_DIR1 = 000001 
FWASQ_FIB = sie eh 
FWASQ_NAME = 0000017 
ASQ_RNS = 0000018 
FWASS_DEVICEBUF = QO0000F F 
|ASS_NAMEBUF = 00 oo) 9 
FWASS_TYPEBUF = 000000 
FWASS_VERBUF = 44 6 
FWAST_F IBBU = 001F4 
FWASV_CONCEAL_DEV = 00000039 
FWASV_DEVICE = 0000000F 
FWASV_DIR = 38 E 
FWASV_EXP_ROOT = 03C 
FWASV_ROOT_DIR = 0000003A 
IFBSL_PRIM_DEV = 00000000 
IFBSL~RNS_CEN s 3 $f 
O$ CREATE zs 
ESL = 0000 6 
NAMS$B_RSL = 0000000 
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+ 
! Psect synopsis ! 
Pp mower moana ance + 


PSECT Nc, Attributes 
. . 00000000 8.3 00 ¢ 0.) NOPIC USR CON ABS LCL N 
RMSRMS 00000208 (¢ 520.) 4 . oye PIC USR CON REL GBL NOS 
$AB 00000000 0.) 02 ¢ 2.) NOPIC USR CON ABS LCL N 


PSECT name A 


— 


Location 
NORD NOWRT NOVEC BYTE 
RD NOWRT NOVEC BYTE 


EXE 
EXE 
EXE RD WRT NOVEC BYTE 


f¢emenr serene meen ese mae newer ae} 

H Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization 36 00:00:00.10 90 :00:00.3% 
Command processing 157 00:00:00.77 00:00:0 ¢3 
Pass 430 00:00:16.53 00:00:39.52 
Symbol table sort 0 00:00:02.58 00:00:03.20 
Pass 2 86 4 64 88 Bo 88183 «Bd 
Symbol table output 11 00:00:00.14 0:00:00.78 
Psect synopsis output 2 00:00:00.03 00:00:00.05 
Cross-reference output 0 es Ss oh 00:00:00.00 
Assembler run totals 724 00:00:23.03 00:00:55.25 


The working set Limit was 1650 pages. 

92733 bytes (182 pages) of virtual memory were used to buffer the intermediate code. 

There were 100 pages of symbol table space allocated to hold 1855 non-local and 22 local symbols. 
428 source Lines were read in Pass 1, producirg 14 object records in Pass 2 

25 pages of virtual memory were used to define 24 macros. 


weret eee eee ene mere resem ec eeat} 


Macro Library name 


.$255$DUA28: CRMS.OBJJRMS.MLB; 1 12 
“$255$DUA28: CSYS.OBJJLIB.MLB; 1 1 
$255$DUA28: CSYSLIBIJSTARLET.MLB;2 7 
TOTALS (all Libraries) 20 


1977 GETS were required to define 20 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:RMSOENTER/OBJ=OBJ$:RMSOENTER MSRC$:RMSOENTER/UPDATE=(ENHS$:RMSOENTER) +EXECMLS$/LIB+LIB$:RMS/LIB 
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